home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 60.zip
/
BS1 part 60
/
Prof. Calc d1.adf
/
misc
/
Install-Proc
< prev
next >
Wrap
AmigaDOS Script File
|
1993-03-23
|
4KB
|
140 lines
.KEY dest
.BRA {
.KET }
;
; Do the PCalc installation:
;
; Inputs:
; dest Where stuff should go.
IF NOT EXISTS "PCalcInstDest:ProCalc"
ECHO " Creating Directory {dest}ProCalc ..."
MAKEDIR "PCalcInstDest:ProCalc"
COPY RAM:PCalcInstall/icons/empty.info "PCalcInstDest:ProCalc.info"
; INSTUTIL reseticon "PCalcInstDest:ProCalc"
ENDIF
Echo >ram:BlottoCD "CD PCalcInstDest:ProCalc"
; Install the program itself.
INSTUTIL ask -dy "Install the Professional Calc program [Y/N]? Y"
IF NOT WARN
ECHO "*N Copying Professional Calc program ...*N"
COPY ProCalc:ProCalc "PCalcInstDest:ProCalc/ProCalc"
COPY ProCalc:ProCalc.info "PCalcInstDest:ProCalc/ProCalc.info"
COPY ProCalc:Prolog.ps "PCalcInstDest:ProCalc/Prolog.ps"
INSTUTIL reseticon "PCalcInstDest:ProCalc/ProCalc"
ENDIF
ECHO "*N"
INSTUTIL ask -dy "Install ProCalc ARexx files [Y/N]? Y"
IF NOT warn
IF NOT EXISTS "PCalcInstDest:ProCalc/Rexx"
MAKEDIR "PCalcInstDest:ProCalc/Rexx"
ENDIF
COPY ProCalc:Rexx "PCalcInstDest:ProCalc/Rexx" ALL QUIET
ENDIF
ASSIGN PCalcInst:
ECHO "*N"
INSTUTIL ask -dy "Copy Example Files to {dest}ProCalc [Y/N]? Y"
IF NOT warn
EXECUTE RAM:PCalcInstall/DiskMount "Examples Disk" Examples: PCalcInst:
IF NOT EXISTS "PCalcInstDest:ProCalc/Worksheets"
MAKEDIR "PCalcInstDest:ProCalc/Worksheets"
ENDIF
ECHO "*N Copying Professional Calc examples ...*N"
COPY PCalcInst: "PCalcInstDest:ProCalc/Worksheets" ALL QUIET
COPY RAM:PCalcInstall/icons/empty.info "PCalcInstDest:ProCalc/Worksheets.info"
INSTUTIL reseticon "PCalcInstDest:ProCalc/Worksheets"
ENDIF
ASSIGN PCalcInst:
ECHO "*N"
ECHO "*N"
EXECUTE RAM:PCalcInstall/DiskMount "Utilities Disk" Utilities: PCalcInst:
ECHO "*N"
INSTUTIL ask -dy "Copy ProCalc fonts to FONTS: directory [Y/N]? Y"
IF NOT warn
FAILAT 21
ECHO "*N Copying fonts to FONTS:"
COPY PCalcInst:fonts FONTS: ALL QUIET
IF error
ECHO "*N Not enough room on the FONTS: directory*N"
ENDIF
FAILAT 10
ELSE
INSTUTIL ask -dy "Copy PCalc fonts to {dest}ProCalc/Fonts [Y/N]? Y"
IF NOT warn
ECHO "*N Copying fonts to {dest}ProCalc/Fonts..."
IF NOT EXISTS "PCalcInstDest:ProCalc/Fonts"
MAKEDIR "PCalcInstDest:ProCalc/Fonts"
ENDIF
COPY PCalcInst:fonts "PCalcInstDest:ProCalc/Fonts" ALL QUIET
;
; Make a couple of IconX files to switch between PCalc and normal fonts.
;
CD RAM:PCalcInstall
ECHO >SelPC.1 "Echo *"Selecting Professional Calc fonts: *" NOLINE"
ECHO >SelPC.2 "Assign FONTS: *"{dest}ProCalc/Fonts*""
ECHO >Sel.Done "Echo *"Done.*""
JOIN SelPC.1 SelPC.2 Sel.Done AS "PCalcInstDest:ProCalc/ProCalcFonts"
COPY RAM:PCalcInstall/Icons/ProCalcFonts.info "PCalcInstDest:ProCalc/ProCalcFonts.info"
ECHO >SelAm.1 "Echo *"Selecting Amiga fonts: *" NOLINE"
ECHO >SelAm.2a "Assign FONTS: " NOLINE
CD FONTS:
CD >RAM:PCalcInstall/SelAm.2b
CD RAM:PCalcInstall
JOIN SelAm.1 SelAm.2a SelAm.2b Sel.Done AS "PCalcInstDest:ProCalc/AmigaFonts"
COPY RAM:PCalcInstall/Icons/AmigaFonts.info "PCalcInstDest:ProCalc/AmigaFonts.info"
INSTUTIL reseticon "PCalcInstDest:ProCalc/ProCalcFonts"
INSTUTIL reseticon "PCalcInstDest:ProCalc/AmigaFonts"
ENDIF
ENDIF
;
; The Assign commands for startup-sequence
;
;CD RAM:PCalcInstall
;ECHO >AsnPCalc "ASSIGN ProCalc: *"{dest}ProCalc*""
;VERSION >nil: graphics.library 36
;IF NOT WARN
; IF NOT EXISTS SYS:WBStartup
; MAKEDIR SYS:WBStartup
; ENDIF
; COPY AsnPCalc SYS:WBStartup/ProCalcStartup
; COPY RAM:PCalcInstall/icons/ProCalcStartup.info SYS:WBStartup
; INSTUTIL reseticon SYS:WBStartup/ProCalcStartup
;ELSE
; COPY AsnPCalc S:ProCalcStartup
;ENDIF